unit UntBrandDB;

interface

type
  TBrandDB = class(TObject)
  public
    class function getShorteningByBarcode(barcode: string): string;
  end;

implementation

uses
  UntDMDB;

class function TBrandDB.getShorteningByBarcode(barcode: string): string;
var sqlStr : string;
begin
  sqlStr :='select shortening from brandinfo where code="'+Copy(barcode, 0, 1) +'" ';
  Result := DMMySQL.GetDBValue_Str(sqlStr);
end;

end.
